home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / basic / qbware.exe / DATESAMP.BAS < prev    next >
Encoding:
BASIC Source File  |  1990-11-30  |  512 b   |  25 lines
  1. '*****************************************************************************
  2.  
  3.  
  4. 'Copyright (c) 1988 Marcel Madonna
  5. '
  6. '    Sample date routine test
  7. '*****************************************************************************
  8. '
  9.  
  10.     Date1$ = "12/14/87"
  11.     Date2$ = "01/14/88"
  12.  
  13.     CALL GregtJul(Date1$, JulDate1$)
  14.     PRINT Date1$, JulDate1$
  15.  
  16.     CALL GregtJul(Date2$, JulDate2$)
  17.     PRINT Date2$, JulDate2$
  18.  
  19.     CALL DaysDiff(Date1$, Date2$, Diff%)
  20.  
  21.     PRINT Date1$, Date2$, "Days difference "; Diff%
  22.     END
  23.  
  24.  
  25.